注册 登录
中国神经科学论坛 返回首页

thinker的个人空间 https://bbs.bioguider.com/?2 [收藏] [复制] [分享] [RSS]

日志

Image pro plus 分析Colocalizatoin的MACRO代码

已有 1072 次阅读2005-12-21 23:28 |个人分类:软件使用|

 Codition: 红色和绿色经COLOR COMPOSITE后,计算黄色的CLUSTER数目。

Macro
Sub Composite()
'<c>F
 ret = IpBlbShow(1)
 ret = IpBlbEnableMeas(BLBM_ALL, 0)
    ret = IpBlbEnableMeas(BLBM_AREAPOLY, 1)
    ret = IpBlbSetFilterRange(BLBM_AREAPOLY, 0.4, 40)
 ret = IpBlbEnableMeas(BLBM_DENSITY, 1)
 ret = IpSegShow(1)
 ret = IpSegSetAttr(SETCURSEL, 0)
 ret = IpSegSetAttr(CHANNEL, 0)
 ret = IpSegPreview(CURRENT_C_T)
 ret = IpSegShow(2)
 ret = IpSegSetAttr(SETCURSEL, 0)
 ret = IpSegPreview(CURRENT_C_T)
 ret = IpSegShow(1)
 ret = IpSegSetAttr(SETCURSEL, 0)
 ret = IpSegSetAttr(CHANNEL, 0)
 ret = IpSegPreview(CURRENT_C_T)
 ret = IpSegShow(2)
 ret = IpSegSetAttr(SETCURSEL, 0)
 ret = IpSegPreview(CURRENT_C_T)
 ret = IpSegSetAttr(SEGCLR_RED, 0)
 ret = IpSegSetAttr(SEGCLR_GREEN, 0)
 ret = IpSegSetAttr(SEGCLR_BLUE, 255)
 ret = IpSegPreview(CURRENT_C_T)
 ret = IpSegShow(1)
 ret = IpSegReset()
 ret = IpSegPreview(ALL_C_T)
 ret = IpSegSetRange(0, 255, 255)
 ret = IpSegSetRange(1, 225, 255)
 ret = IpSegSetRange(2, 0, 0)
 ret = IpSegPreview(ALL_C_T)
 ret = IpSegPreview(CURRENT_C_T)
 ret = IpSegShow(0)
 ret = IpBlbCount()
 ret = IpBlbUpdate(0)
 ret = IpBlbSaveData("",  S_HEADER+S_Y_AXIS+S_DDE)
End Sub

路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|Archiver|生物行[生物导航网] ( 沪ICP备05001519号 )

GMT+8, 2024-11-13 14:31 , Processed in 0.011334 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

返回顶部